home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / SELECT-3.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  517 b   |  20 lines
  1. ' SELECT-3.BAS
  2. ' This program analyzes the user's daily coffee consumption.
  3.  
  4. CLS
  5.  
  6. INPUT "How many cups of coffee will you drink today?  ", cupsCoffee%
  7. PRINT
  8.  
  9. SELECT CASE cupsCoffee%
  10.     CASE 0
  11.         PRINT "Don't you LIKE my coffee??"
  12.     CASE IS <= 3        ' 1 to 3 cups a day
  13.         PRINT "A moderate level."
  14.     CASE IS <= 7        ' 4 to 7 cups a day
  15.         PRINT "I see decaf in your future..."
  16.     CASE IS >= 8        ' 8 or more cups a day
  17.         PRINT "Caffeine overload!"
  18. END SELECT
  19.  
  20.